home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / COMMUNIC / WC094C.ZIP / DAILY.SCR < prev    next >
Text File  |  1993-03-02  |  2KB  |  92 lines

  1. ;***********************************************************************
  2. ;       WinCIS .94
  3. ;       Copyright(C) 1992
  4. ;       Larry Lee (76670,1471)
  5. ;       16038 Augusta Drive
  6. ;       Chino Hills, Ca 91709
  7. ;***********************************************************************
  8.  
  9. ; GO FULL SCREEN
  10. WINDOWSTATE MAXIMIZE
  11.  
  12. WAIT !
  13. SEND SET BRIEF YES^M
  14. WAIT !
  15. SEND SET PAGED NO^M
  16. WAIT !
  17. SEND SET BLANK YES^M
  18. WAIT !
  19.  
  20. ; Start with weather Information
  21. ECHO Weather Information
  22.  
  23. SEND GO CIS^M
  24. WAIT !
  25.  
  26. ; Erase Exitsing File if Any
  27. KILLFILE &MESSAGEPATH\NEWS.TXT
  28.  
  29. ; ^M^J is the same as a CRLF
  30. ; Add a Title Line
  31. PUTFILE &MESSAGEPATH\NEWS.TXT ^M^J>>> Local Weather Report as of &DATE at &TIME <<<^M^J^M^J
  32.  
  33. ; Start File Capture
  34. CAPTURE &MESSAGEPATH\NEWS.TXT APPEND
  35.  
  36. ; get local weather
  37. SEND WEATHER^M
  38. WAIT !
  39. ; Turn Off File Capture
  40. CAPTURE OFF
  41.  
  42. ; Now Get Stock Report
  43. ECHO Stock Reports
  44.  
  45. ; ^M^J is the same as a CRLF
  46. ; Add a Title Line
  47. PUTFILE &MESSAGEPATH\NEWS.TXT ^M^J^M^J>>> Stock Quotes as of &DATE at &TIME <<<^M^J^M^J
  48.  
  49. ; Start File Capture
  50. CAPTURE &MESSAGEPATH\NEWS.TXT APPEND
  51.  
  52. ; wait for prompt
  53. SEND QUOTE HRB^M
  54. WAIT !
  55. ; Turn Off File Capture
  56. CAPTURE OFF
  57.  
  58. ; Finally Daily News
  59. ECHO The Daily News
  60.  
  61. SEND GO OLT-90^M
  62. WAIT !
  63.  
  64. ; ^M^J is the same as a CRLF
  65. ; Add a Title Line
  66. PUTFILE &MESSAGEPATH\NEWS.TXT ^M^J^M^J>>> OLT-90 Online Today's daily Edition as of &DATE atT &TIME <<<^M^J^M^J
  67.  
  68. ; Start File Capture
  69. CAPTURE &MESSAGEPATH\NEWS.TXT APPEND
  70.  
  71. ; Read the News
  72. SEND ALL^M
  73. WAIT age!
  74. ; Turn Off File Capture
  75. CAPTURE OFF
  76.  
  77. SEND ^M
  78. ; outta here
  79. WAIT T-90
  80. SEND ^M
  81.  
  82. ; Wait For Navigation Prompt
  83. WAIT !
  84.  
  85. ; Shrink the screen Size
  86. WINDOWSTATE MINIMIZE
  87. ; Call Notepad
  88. SHELL NOTEPAD.EXE 1 &MESSAGEPATH\NEWS.TXT
  89.  
  90. ; Logoff CIS and Exit the Terminal Window
  91. LOGOFF
  92.